inherited FMovObrigacao: TFMovObrigacao
  Left = 462
  Top = 260
  Caption = 'Cadastro de Obriga'#231#245'es Financeiras'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pnl1: TPanel
    Height = 89
    inherited pnl7: TPanel
      Height = 0
    end
  end
  inherited pnl2: TPanel
    Top = 89
    Height = 398
    object lbl1: TLabel [5]
      Left = 426
      Top = 106
      Width = 123
      Height = 13
      Caption = 'OBRDATAVENCIMENTO'
      FocusControl = dbedt1
    end
    object lbl2: TLabel [6]
      Left = 16
      Top = 152
      Width = 66
      Height = 13
      Caption = 'OBRPESSOA'
      FocusControl = dbedt2
    end
    object lbl3: TLabel [7]
      Left = 534
      Top = 104
      Width = 94
      Height = 13
      Caption = 'OBRVALORTOTAL'
      FocusControl = dbedt3
    end
    object lbl4: TLabel [8]
      Left = 16
      Top = 106
      Width = 72
      Height = 13
      Caption = 'OBRMEDICAO'
      FocusControl = dbedt4
    end
    object lbl5: TLabel [9]
      Left = 280
      Top = 64
      Width = 114
      Height = 13
      Caption = 'OBRTOTALPARCELAS'
      FocusControl = dbedt5
    end
    object lbl6: TLabel [10]
      Left = 200
      Top = 64
      Width = 72
      Height = 13
      Caption = 'OBRPARCELA'
      FocusControl = dbedt6
    end
    object lbl7: TLabel [11]
      Left = 16
      Top = 64
      Width = 109
      Height = 13
      Caption = 'OBRNRDOCUMENTO'
      FocusControl = dbedt7
    end
    object lbl8: TLabel [12]
      Left = 494
      Top = 64
      Width = 34
      Height = 13
      Caption = 'OBRID'
      FocusControl = dbedt8
    end
    object lbl9: TLabel [13]
      Left = 640
      Top = 200
      Width = 96
      Height = 13
      Caption = 'OBROBSERVACAO'
      FocusControl = dbmmo1
    end
    object lbl10: TLabel [14]
      Left = 104
      Top = 107
      Width = 72
      Height = 13
      Caption = 'EMPREENDID'
      FocusControl = dbedt9
    end
    object dbedt1: TDBEdit
      Left = 426
      Top = 122
      Width = 89
      Height = 21
      DataField = 'OBRDATAVENCIMENTO'
      DataSource = dsPadrao
      TabOrder = 5
    end
    object dbedt2: TDBEdit
      Left = 16
      Top = 168
      Width = 65
      Height = 21
      Color = clMoneyGreen
      DataField = 'OBRPESSOA'
      DataSource = dsPadrao
      TabOrder = 6
      OnDblClick = dbedt2DblClick
      OnExit = dbedt2Exit
    end
    object dbedt3: TDBEdit
      Left = 534
      Top = 120
      Width = 91
      Height = 21
      DataField = 'OBRVALORTOTAL'
      DataSource = dsPadrao
      TabOrder = 7
    end
    object dbedt4: TDBEdit
      Left = 16
      Top = 122
      Width = 73
      Height = 21
      Color = clSkyBlue
      DataField = 'OBRMEDICAO'
      DataSource = dsPadrao
      ReadOnly = True
      TabOrder = 8
    end
    object dbedt5: TDBEdit
      Left = 280
      Top = 80
      Width = 65
      Height = 21
      DataField = 'OBRTOTALPARCELAS'
      DataSource = dsPadrao
      TabOrder = 9
    end
    object dbedt6: TDBEdit
      Left = 200
      Top = 80
      Width = 73
      Height = 21
      DataField = 'OBRPARCELA'
      DataSource = dsPadrao
      TabOrder = 10
    end
    object dbedt7: TDBEdit
      Left = 16
      Top = 80
      Width = 177
      Height = 21
      DataField = 'OBRNRDOCUMENTO'
      DataSource = dsPadrao
      TabOrder = 11
    end
    object dbedt8: TDBEdit
      Left = 494
      Top = 80
      Width = 134
      Height = 21
      Color = clSkyBlue
      DataField = 'OBRID'
      DataSource = dsPadrao
      ReadOnly = True
      TabOrder = 12
    end
    object dbmmo1: TDBMemo
      Left = 640
      Top = 216
      Width = 281
      Height = 166
      DataField = 'OBROBSERVACAO'
      DataSource = dsPadrao
      TabOrder = 13
    end
    object EdDescPessoa: TEdit
      Left = 83
      Top = 168
      Width = 542
      Height = 21
      ReadOnly = True
      TabOrder = 14
    end
    object dbgrdItens: TDBGrid
      Left = 16
      Top = 216
      Width = 617
      Height = 169
      DataSource = dsObrigacoesItens
      TabOrder = 15
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = dbgrdItensDblClick
      OnKeyDown = dbgrdItensKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'OBRITEMID'
          Title.Caption = 'Sequencia'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OBRITEMFORMAPAGAMENTO'
          Title.Caption = 'Forma de pagamento'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FORPAGDESC'
          Title.Caption = 'Descri'#231#227'o da forma de pagamento'
          Width = 230
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OBRITEMDATAPAGAMENTO'
          Title.Caption = 'Data do Pagamento'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OBRITEMVALORPAGO'
          Title.Caption = 'Valor Pago'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OBRID'
          Visible = False
        end>
    end
    object pnl8: TPanel
      Left = 16
      Top = 196
      Width = 617
      Height = 17
      Anchors = [akLeft, akTop, akRight]
      Caption = 'Formas como essa obriga'#231#227'o foi paga'
      Color = clActiveCaption
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 16
    end
    object PStatus: TPanel
      Left = 646
      Top = 66
      Width = 276
      Height = 127
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 17
      OnDblClick = PStatusDblClick
    end
    object dbedt9: TDBEdit
      Left = 104
      Top = 123
      Width = 73
      Height = 21
      Color = clMoneyGreen
      DataField = 'EMPREENDID'
      DataSource = dsPadrao
      TabOrder = 18
      OnDblClick = dbedt9DblClick
      OnExit = dbedt9Exit
    end
    object EdDescEmpreendimento: TEdit
      Left = 180
      Top = 122
      Width = 237
      Height = 21
      ReadOnly = True
      TabOrder = 19
    end
  end
  inherited qPadrao: TQuery
    AfterInsert = qPadraoAfterInsert
    BeforePost = qPadraoBeforePost
    AfterScroll = qPadraoAfterScroll
    SQL.Strings = (
      'SELECT * FROM OBRIGACOES'
      'WHERE 1 = -1')
    object qPadraoOBRDATAVENCIMENTO: TDateTimeField
      FieldName = 'OBRDATAVENCIMENTO'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.OBRDATAVENCIMENTO'
      EditMask = '99/99/9999;1;_'
    end
    object qPadraoOBRPESSOA: TIntegerField
      FieldName = 'OBRPESSOA'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.OBRPESSOA'
    end
    object qPadraoOBRVALORTOTAL: TFloatField
      FieldName = 'OBRVALORTOTAL'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.OBRVALORTOTAL'
      currency = True
    end
    object qPadraoOBRMEDICAO: TIntegerField
      FieldName = 'OBRMEDICAO'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.OBRMEDICAO'
    end
    object qPadraoOBRTOTALPARCELAS: TIntegerField
      FieldName = 'OBRTOTALPARCELAS'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.OBRTOTALPARCELAS'
    end
    object qPadraoOBRPARCELA: TIntegerField
      FieldName = 'OBRPARCELA'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.OBRPARCELA'
    end
    object qPadraoOBRNRDOCUMENTO: TStringField
      FieldName = 'OBRNRDOCUMENTO'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.OBRNRDOCUMENTO'
    end
    object qPadraoOBRID: TIntegerField
      FieldName = 'OBRID'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.OBRID'
    end
    object qPadraoOBROBSERVACAO: TMemoField
      FieldName = 'OBROBSERVACAO'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.OBROBSERVACAO'
      BlobType = ftMemo
      Size = 2000
    end
    object qPadraoOBRTPSTATUS: TStringField
      FieldName = 'OBRTPSTATUS'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.OBRTPSTATUS'
      Size = 25
    end
    object qPadraoEMPREENDID: TIntegerField
      FieldName = 'EMPREENDID'
      Origin = '"BDSISTEMA.FDB".OBRIGACOES.EMPREENDID'
    end
  end
  object dsObrigacoesItens: TDataSource
    DataSet = QObrigacoesItens
    Left = 192
    Top = 361
  end
  object QObrigacoesItens: TQuery
    DatabaseName = 'BDSistema.FDB'
    SQL.Strings = (
      
        'SELECT O.*, FP.FORPAGDESC FROM OBRIGACOESITEM O, FORMAPAGAMENTO ' +
        'FP'
      'WHERE 1=-1'
      'AND FP.FORPAGID = O.OBRITEMFORMAPAGAMENTO')
    Left = 224
    Top = 361
    object QObrigacoesItensOBRITEMFORMAPAGAMENTO: TIntegerField
      FieldName = 'OBRITEMFORMAPAGAMENTO'
      Origin = '"BDSISTEMA.FDB".OBRIGACOESITEM.OBRITEMFORMAPAGAMENTO'
    end
    object QObrigacoesItensOBRITEMDATAPAGAMENTO: TDateTimeField
      FieldName = 'OBRITEMDATAPAGAMENTO'
      Origin = '"BDSISTEMA.FDB".OBRIGACOESITEM.OBRITEMDATAPAGAMENTO'
    end
    object QObrigacoesItensOBRITEMVALORPAGO: TFloatField
      FieldName = 'OBRITEMVALORPAGO'
      Origin = '"BDSISTEMA.FDB".OBRIGACOESITEM.OBRITEMVALORPAGO'
    end
    object QObrigacoesItensOBRITEMID: TIntegerField
      FieldName = 'OBRITEMID'
      Origin = '"BDSISTEMA.FDB".OBRIGACOESITEM.OBRITEMID'
    end
    object QObrigacoesItensOBRID: TIntegerField
      FieldName = 'OBRID'
      Origin = '"BDSISTEMA.FDB".OBRIGACOESITEM.OBRID'
    end
    object QObrigacoesItensFORPAGDESC: TStringField
      FieldName = 'FORPAGDESC'
      Origin = '"BDSISTEMA.FDB".FORMAPAGAMENTO.FORPAGDESC'
      Size = 100
    end
  end
end
